home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Crystal_Re2023131042006.psc / crystal report 10 dynamic datasource / Form1.frm next >
Text File  |  2006-10-04  |  2KB  |  70 lines
  1. VERSION 5.00
  2. Object = "{3C62B3DD-12BE-4941-A787-EA25415DCD27}#10.0#0"; "crviewer.dll"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   5085
  6.    ClientLeft      =   60
  7.    ClientTop       =   450
  8.    ClientWidth     =   6630
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   5085
  11.    ScaleWidth      =   6630
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin CrystalActiveXReportViewerLib10Ctl.CrystalActiveXReportViewer CRViewer1 
  14.       Height          =   4815
  15.       Left            =   120
  16.       TabIndex        =   0
  17.       Top             =   120
  18.       Width           =   6375
  19.       lastProp        =   600
  20.       _cx             =   11245
  21.       _cy             =   8493
  22.       DisplayGroupTree=   -1  'True
  23.       DisplayToolbar  =   -1  'True
  24.       EnableGroupTree =   -1  'True
  25.       EnableNavigationControls=   -1  'True
  26.       EnableStopButton=   -1  'True
  27.       EnablePrintButton=   -1  'True
  28.       EnableZoomControl=   -1  'True
  29.       EnableCloseButton=   -1  'True
  30.       EnableProgressControl=   -1  'True
  31.       EnableSearchControl=   -1  'True
  32.       EnableRefreshButton=   -1  'True
  33.       EnableDrillDown =   -1  'True
  34.       EnableAnimationControl=   -1  'True
  35.       EnableSelectExpertButton=   0   'False
  36.       EnableToolbar   =   -1  'True
  37.       DisplayBorder   =   -1  'True
  38.       DisplayTabs     =   -1  'True
  39.       DisplayBackgroundEdge=   -1  'True
  40.       SelectionFormula=   ""
  41.       EnablePopupMenu =   -1  'True
  42.       EnableExportButton=   0   'False
  43.       EnableSearchExpertButton=   0   'False
  44.       EnableHelpButton=   0   'False
  45.       LaunchHTTPHyperlinksInNewBrowser=   -1  'True
  46.       EnableLogonPrompts=   -1  'True
  47.    End
  48. End
  49. Attribute VB_Name = "Form1"
  50. Attribute VB_GlobalNameSpace = False
  51. Attribute VB_Creatable = False
  52. Attribute VB_PredeclaredId = True
  53. Attribute VB_Exposed = False
  54. Option Explicit
  55.  
  56. 'Add this code to a form named form1 and module with a CrystalReports Viewer and reference
  57. 'the Crystal Reports ActiveX Designer Run Time Library 10.0
  58.  
  59.  
  60. Private Sub Form_Load()
  61.    strSelect = "your sqlquery"
  62.    viewReport strSelect, App.Path & "\your report file"
  63. End Sub
  64.  
  65.  
  66. Private Sub Form_Resize()
  67. CRViewer1.Width = ScaleWidth
  68. CRViewer1.Height = ScaleHeight
  69. End Sub
  70.